home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 8 / 008.d81 / remember it (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  112 lines
  1. 1 poke53281,3:poke53280,6:print"[147]              remember it                 ";
  2. 2 print"          by  djb shibley             "
  3. 3 q$(0)="hmmmm":q$(1)="thinking":q$(2)="well !":q$(3)="trying to remember"
  4. 4 q$(4)="checking memory":q$(5)="deciding":q$(6)="checking prior moves"
  5. 5 dimd$(44),u(44),m(44),r(35),r$(35)
  6. 6 d$(2)="***[157][157][157]***[157][157][157]***"
  7. 7 q$(7)="huh !":q$(8)="my move":q$(9)="let's see":q$(10)="thinking out my move"
  8. 10 d$(6)="[129][205] [206][157][157][157] [214] [157][157][157][206] [205]":d$(9)="###[157][157][157] [150][219] [157][157][157]###"
  9. 11 d$(0)="   [157][157][157] [144][193] [157][157][157]   ":d$(1)="[152][209][209][209][157][157][157][209][209][209][157][157][157][209][209][209]"
  10. 12 d$(4)="[144][191][191][191][157][157][157][191][191][191][157][157][157][191][191][191]":d$(5)="[144][213][195][201][157][157][157][202][178][203][157][157][157] [150][215] "
  11. 13 d$(7)="[218][218][218][157][157][157] [218] [157][157][157][218][218][218]":d$(8)="[144][176][192][174][157][157][157][214][214][214][157][157][157][173][192][189]"
  12. 14 d$(3)=" [175] [157][157][157] [221] [157][157][157] [203] ":d$(10)="[154]   [157][157][157] [146][219] [157][157][157]   "
  13. 15 d$(11)="[158][166][166][166][157][157][157][166][166][166][157][157][157][166][166][166]":d$(12)="[154][169][169][169][157][157][157][192][192][192][154][157][157][157][169][169][169]"
  14. 16 d$(13)="[156][221][221][221][157][157][157][221][221][221][157][157][157][221][221][221]":d$(14)="[153][184][184][184][157][157][157][182] [146][181][157][157][157][185][185][185]"
  15. 17 d$(15)="[206][206][206][157][157][157]   [157][157][157][205][205][205]":d$(16)="[156][171][192][179][157][157][157][171][192][179][157][157][157][171][192][179]"
  16. 18 d$(17)="[159] [185] [157][157][157]  [146] [157][157][157] [184] "
  17. 19 d$(18)="[144] [178] [157][157][157] [194] [157][157][157] [177] ":d$(19)="[215][215][215][157][157][157][215][215][215][157][157][157][215][215][215]"
  18. 20 d$(20)="[158][192][192][192][157][157][157][146][192][192][192][157][157][157][192][192][192]":d$(21)="[207] [208][157][157][157] ! [157][157][157][204] [186]"
  19. 21 forj=22to43:d$(j)=d$(j-22):next:d$(44)="   [157][157][157] 1 [157][157][157]pt."
  20. 25 print"     press 1 or 2 for # of players[145]":getx$:n=val(x$):ifn<1orn>2then25
  21. 26 ifn=2then34
  22. 27 print"[147]do you want me to play like":print" 1 - a solo elecrton"
  23. 28 print" 2 - a vacuume tube calculator":print" 3 - a gutless adding machine"
  24. 29 print" 4 - a non polished apple":print" 5 - a cripple micro-computer"
  25. 30 print" 6 - a micro-computer":print" 7 - a commodore micro-computer"
  26. 31 print" 8 - a mini-computer":print" 9 - a full blown mainframe"
  27. 32 poke198,0:wait198,1:getx$:s=val(x$):ifs=0then32
  28. 33 s=s*2:ifs>13thens=int(s*1.7):ifs>30thens=35
  29. 34 poke53281,15:print"[147]":gosub500:forj=0to44
  30. 35 print"[144]please wait...setting up!!"
  31. 40 x=rnd(0)*45:ifu(x)=1then40
  32. 45 u(x)=1:m(j)=int(x):next:print"                                     "
  33. 49 forh=1ton:fori=1to2:o(i)=0
  34. 50 print"[144]player";h;"- door #        [157][157][157][157][157]";:y$="":y=0:x$=""
  35. 51 inputy$:x$=y$:x=val(y$):goto55:rem    gety$:ify$=""then51
  36. 52 printy$;:ify$=chr$(20)ory$="[157]"then50
  37. 53 y=y+1:ify>1thenx=val(x$+y$):goto55
  38. 54 x$=y$:y$="":goto51
  39. 55 ifx<1orx>45then50
  40. 56 x=x-1:ifu(x)=0or(i=2andx=o(1))then50
  41. 57 o(i)=x:x$=d$(m(x)):gosub950
  42. 60 ifm(o(i))=44thent(h)=t(h)+1:x=o(i):u(x)=0:gosub965:i=i-1
  43. 71 next:ifd$(m(o(1)))=d$(m(o(2)))thent(h)=t(h)+2:u(o(1))=0:u(o(2))=0:goto90
  44. 72 print"                                     "
  45. 75 forj=0to4000:next:fori=1to2:x$="   [157][157][157]   [157][157][157]   [157][157][157][145]"+str$(o(i)+1):x=o(i)
  46. 76 gosub950:next:goto100
  47. 90 print"";spc(13);t(1);"[145]":printspc(34);t(2);:h=h-1
  48. 91 ift(1)+t(2)=45thenh=n
  49. 100 next:ift(1)+t(2)=45then200
  50. 105 ifn=2then49
  51. 106 ifs>15thenprint"[144] ";q$(rnd(0)*11)
  52. 107 z=0:y=0:forj=1tos:fork=jtos:ifr$(j)=r$(k)thenifr(j)<>r(k)thenz=j:y=k
  53. 109 next:next:print"                                 ":ifz=0oru(r(z))=0then118
  54. 110 x=r(z):x$=r$(z):iflen(x$)<2then118
  55. 111 r$(z)="":u(x)=0:gosub950:x=r(y):u(x)=0:t(2)=t(2)+2:gosub950:r$(y)=" "
  56. 112 print"":goto107
  57. 118 a=o(1):b=o(2):a$=d$(m(a)):b$=d$(m(b))
  58. 120 x=0:y=0:forj=1tos:ifr$(j)=a$andr(j)<>athenx=r(j):x$=r$(j)
  59. 125 ifr$(j)=b$andr(j)<>btheny=r(j):y$=r$(j)
  60. 130 next:ifx>0thenu(x)=0:gosub950:x=a:u(x)=0:t(2)=t(2)+2:gosub950:x=-1
  61. 131 ift(1)+t(2)=45then200
  62. 132 ifx=-1thenforj=0to1500:next:goto140
  63. 133 c=c+1:ifc>sthenc=1
  64. 134 r$(c)=a$:r(c)=a
  65. 140 ify>0thenu(y)=0:x=y:x$=y$:gosub950:x=b:u(x)=0:t(2)=t(2)+2:gosub950:x=-1
  66. 141 ift(1)+t(2)=45then200
  67. 142 ifx=-1thenforj=0to1500:next:goto150
  68. 143 c=c+1:ifc>sthenc=1
  69. 150 z=int(rnd(0)*44+1):z$=d$(m(z)):x$=z$:ift(1)+t(2)=45then200
  70. 151 ifu(z)=0then150
  71. 152 ifm(z)=44thenu(z)=0:t(2)=t(2)+1:x=z:gosub950:forj=0to1000:next:goto150
  72. 155 x=z:x$=z$:gosub950:y=0:forj=1tos:ifx$=r$(j)andr(j)<>ztheny=j
  73. 156 next:ify=0then160
  74. 158 u(z)=0:x=r(y):u(x)=0:t(2)=t(2)+2:gosub950:print"":ift(2)+t(1)=45then200
  75. 159 forj=0to1500:next:goto150
  76. 160 y=int(rnd(0)*44+1):y$=d$(m(y)):x$=y$:ifu(y)=0ory=zthen160
  77. 162 ifm(y)=44thenu(y)=0:t(2)=t(2)+1:x=y:gosub950:forj=0to1000:next:goto160
  78. 165 x=y:x$=y$:gosub950:ify$=z$thent(2)=t(2)+2:x=y:gosub950:u(z)=0:u(y)=0:x=-1
  79. 166 ift(1)+t(2)=45then200
  80. 167 ifx=-1thenforj=0to1500:next:goto150
  81. 170 forj=0to4000:next:c=c+1:ifc>sthenc=1
  82. 175 r$(c)=z$:r(c)=z:c=c+1:ifc>sthenc=1
  83. 176 r$(c)=y$:r(c)=y
  84. 180 x$="   [157][157][157]   [157][157][157]   [145][157][157][157]"+str$(z+1):x=z:gosub950
  85. 181 x$="   [157][157][157]   [157][157][157]   [145][157][157][157]"+str$(y+1):x=y:gosub950:goto49
  86. 200 print"play again ? (y/n)        ";:getx$:ifx$<>"y"andx$<>"n"then200
  87. 201 ifx$="y"thent(1)=0:t(2)=0:forj=1to35:r$(j)="":next:goto34
  88. 202 goto63000
  89. 500 fori=0to4:print"                                     ";
  90. 505 print"                  ";
  91. 510 print"            ";
  92. 511 next
  93. 515 print"                                     "
  94. 519 print"";:forj=0to4
  95. 520 print"                                          ";
  96. 525 print"                                       ";:next
  97. 530 print"12345678910111213";
  98. 535 print"1415161718192021222324252627";
  99. 540 print"2829303132333435363738394041";
  100. 545 print"42434445"
  101. 900 print"    player 1";t(1)"[145]":printspc(25);
  102. 901 print"player 2";t(2);:return
  103. 950 print"[157]";:ifx>8thenforj=1toint(x/9):print"";:next
  104. 955 ifx<9then960
  105. 956 x=x-9:goto955
  106. 960 printspc((x+1)*4);x$
  107. 965 print"";spc(13);t(1);"[145]":printspc(34);t(2);
  108. 970 return
  109. 63000 rem   connect back to l.s.
  110. 63002 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  111. 63004 poke198,0:poke631,13:poke632,13:poke198,2:end
  112.